home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 October / PCWorld_2006-10_cd.bin / v cisle / pdffc / ps2pdf995.exe / pdf995 / res / convert / ps2ascii.ps < prev    next >
Text File  |  2002-12-27  |  46KB  |  1,523 lines
  1. % This file has been modified by pdf995 on Dec 27, 2002
  2. %    Copyright (C) 1991, 1995, 1996, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  3. % 
  4. % This software is provided AS-IS with no warranty, either express or
  5. % implied.
  6. % 
  7. % This software is distributed under license and may not be copied,
  8. % modified or distributed except as expressly authorized under the terms
  9. % of the license contained in the file LICENSE in this distribution.
  10. % 
  11. % For more information about licensing, please refer to
  12. % http://www.ghostscript.com/licensing/. For information on
  13. % commercial licensing, go to http://www.artifex.com/licensing/ or
  14. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  15. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  16.  
  17. % $Id: ps2ascii.ps,v 1.3.2.2 2002/04/02 13:57:27 mpsuzuki Exp $
  18. % Extract the ASCII text from a PostScript file.  Nothing is displayed.
  19. % Instead, ASCII information is written to stdout.  The idea is similar to
  20. % Glenn Reid's `distillery', only a lot more simple-minded, and less robust.
  21.  
  22. % If SIMPLE is defined, just the text is written, with a guess at line
  23. % breaks and word spacing.  If SIMPLE is not defined, lines are written
  24. % to stdout as follows:
  25. %
  26. %    F <height> <width> (<fontname>)
  27. %        Indicate the font height and the width of a space.
  28. %
  29. %    P
  30. %        Indicate the end of the page.
  31. % 
  32. %    S <x> <y> (<string>) <width>
  33. %        Display a string.
  34. %
  35. % <width> and <height> are integer dimensions in units of 1/720".
  36. % <x> and <y> are integer coordinates, in units of 1/720", with the origin
  37. %   at the lower left.
  38. % <string> and <fontname> are strings represented with the standard
  39. %   PostScript escape conventions.
  40.  
  41. % If COMPLEX is defined, the following additional types of lines are
  42. % written to stdout.
  43. %
  44. %    C <r> <g> <b>
  45. %        Indicate the current color.
  46. %
  47. %    I <x> <y> <width> <height>
  48. %        Note the presence of an image.
  49. %
  50. %    R <x> <y> <width> <height>
  51. %        Fill a rectangle.
  52. %
  53. % <r>, <g>, and <b> are RGB values expressed as integers between 0 and 1000.
  54. %
  55. % Note that future versions of this program (in COMPLEX mode) may add
  56. %   other output elements, so programs parsing the output should be
  57. %   prepared to ignore elements that they do not recognize.
  58.  
  59. % Note that this code will only work in all cases if systemdict is writable
  60. % and if `binding' the definitions of operators defined as procedures
  61. % is deferred.  For this reason, it is normally invoked with
  62. %    gs -q -dNODISPLAY -dNOBIND -dWRITESYSTEMDICT ps2ascii.ps
  63.  
  64. % Thanks to:
  65. %    J Greely <jgreely@cis.ohio-state.edu> for improvements to this code;
  66. %    Jerry Whelan <jerryw@abode.ccd.bnl.gov> for motivating other improvements;
  67. %    David M. Jones <dmjones@theory.lcs.mit.edu> for improvements noted below.
  68.  
  69. %%  Additional modifications by David M. Jones
  70. %%  (dmjones@theory.lcs.mit.edu), December 23, 1997
  71. %%  
  72. %%  (a) Rewrote forall loop at the end of .show.write.  This fixes a
  73. %%      stack leakage problem, but the changes are more significant
  74. %%      than that.  
  75. %% 
  76. %%      .char.map includes the names of all characters in the
  77. %%      StandardEncoding, ISOLatin1Encoding, OT1Encoding and
  78. %%      T1Encoding vectors.  Thus, if the Encoding vector for the
  79. %%      current font contains a name that is not in .char.map, it's
  80. %%      redundant to check if the Encoding vector is equal to one of
  81. %%      the known vectors.  Previous versions of ps2ascii would give
  82. %%      up at this point, and substitute an asterisk (*) for the
  83. %%      character.  I've taken the liberty of instead using the
  84. %%      OT1Encoding vector to translate the character, on the grounds
  85. %%      that in the cases I'm most interested in, a font without a
  86. %%      useful Encoding vector was most likely created by a DVI to PS
  87. %%      converter such as dvips or DVILASER (and OT1Encoding is
  88. %%      largely compatible with StandardEncoding anyway).  [Note that
  89. %%      this does not make my earlier changes to support dvips (see
  90. %%      fix (a) under my 1996 changes) completely obsolete, since
  91. %%      there's additional useful information I can extract in that
  92. %%      case.]
  93. %%      
  94. %%      Overall, this should provide better support for some documents
  95. %%      (e.g, DVILASER documents will no longer be translated into a
  96. %%      series of *'s) without breaking any other documents any worse
  97. %%      than they already were broken.
  98. %% 
  99. %%  (b) Fixed two bugs in dvips.df-tail: (1) changed "dup 127" to "dup
  100. %%      128" to fix fencepost error, and (2) gave each font it's own
  101. %%      FontName rather than having all fonts share the same name.
  102. %%  
  103. %%  (c) Added one further refinement to the heuristic for detecting
  104. %%      paragraph breaks: do not ever start a new paragraph after a
  105. %%      line ending in a hyphen.
  106. %% 
  107. %%  (d) Added a bunch of missing letters from the T1Encoding,
  108. %%      OT1Encoding and ISOLatin1Encoding vectors to .letter.chars to
  109. %%      improve hyphen-elimination algorithm.  This still won't help
  110. %%      if there's no useful Encoding vector.
  111. %% 
  112. %%  NOTE: A better solution to the problem of missing Encoding vectors
  113. %%  might be to redefine definefont to check whether the Encoding
  114. %%  vector is sensible and, if not, replace it by a default.  This
  115. %%  would alleviate the need for constant tests in the .show.write
  116. %%  loop, as well as automatically solving the problem noted in fix
  117. %%  (d) above, and the similar problem with .break.chars.  This should
  118. %%  be investigated.  Also, the hyphen-elimination algorithm really
  119. %%  needs to be looked at carefully and rethought.
  120.  
  121. %%* Modifications to ps2ascii.ps by David M. Jones
  122. %%* (dmjones@theory.lcs.mit.edu), June 25-July 8, 1996
  123.  
  124. %%* Modifications:
  125. %%* 
  126. %%* (a) added code to give better support for dvips files by providing
  127. %%*     FontBBox's, FontName's and Encoding vectors for downloaded
  128. %%*     bitmap fonts.  This is done by using dvips's start-hook to
  129. %%*     overwrite the df-tail and D procedures that dvips uses to
  130. %%*     define its Type 3 bitmap fonts.  Thus, this change should
  131. %%*     provide better support for dvips-generated PS files without
  132. %%*     affecting the handling of other documents.
  133. %%* 
  134. %%* (b) Fixed two bugs that could potentially affect any PS file, not
  135. %%*     just those created by dvips: (1) added missing "get" operator
  136. %%*     in .show.write and (2) fixed bug that caused a hyphen at the
  137. %%*     end of a line to be replaced by a space rather than begin
  138. %%*     deleted.  Note that the first bug was a source of stack
  139. %%*     leakage, causing ps2ascii to run out of operand stack space
  140. %%*     occasionally.
  141. %%* 
  142. %%*     Search for "%%* BF" to find these modifications.
  143. %%*     
  144. %%* (c) Improved the heuristic for determining whether a line break
  145. %%*     has occurred and whether a line break represents a paragraph
  146. %%*     break.  Previously, any change in the vertical position caused
  147. %%*     a line break; now a line break is only registered if the
  148. %%*     change is larger than the height of the current font.  This
  149. %%*     means that superscripts, subscripts, and such things as
  150. %%*     shifted accents generated by TeX won't cause line breaks.
  151. %%*     Paragraph-recognition is now done by comparing the indentation
  152. %%*     of the new line to the indentation of the previous line and by
  153. %%*     comparing the vertical distance between the new line and the
  154. %%*     previous line to the vertical distance between the previous
  155. %%*     line and its predecessor.
  156. %%*     
  157. %%* (d) Added a hook for renaming the files where stdout and stderr
  158. %%*     go.
  159. %%* 
  160. %%* In general, my additions or changes to the code are described in
  161. %%* comments beginning with "%%*".  However, there are numerous other
  162. %%* places where I have either re-formatted code or added comments to
  163. %%* the code while I was trying to understand it.  These are usually
  164. %%* not specially marked.
  165. %%* 
  166.  
  167. /QUIET true def
  168. systemdict wcheck { systemdict } { userdict } ifelse begin
  169. /.max where { pop } { /.max { 2 copy lt { exch } if pop } bind def } ifelse
  170. /COMPLEX dup where { pop true } { false } ifelse def
  171. /SIMPLE dup where { pop true } { false } ifelse def
  172. /setglobal where
  173.  { pop currentglobal /setglobal load true setglobal }
  174.  { { } }
  175. ifelse
  176.  
  177. % Define a way to store and retrieve integers that survives save/restore.
  178. /.i.string0 (0               ) def
  179. /.i.string .i.string0 length string def
  180. /.iget { cvi } bind def
  181. /.iput { exch //.i.string exch copy cvs pop } bind def
  182. /.inew { //.i.string0 dup length string copy } bind def
  183.  
  184. % We only want to redefine operators if they are defined already.
  185.  
  186. /codef { 1 index where { pop def } { pop pop } ifelse } def
  187.  
  188. % Redefine the end-of-page operators.
  189.  
  190. /erasepage { } codef
  191. /copypage { SIMPLE { (\014) } { (P\n) } ifelse //print } codef
  192. /showpage { copypage erasepage initgraphics } codef
  193.  
  194. % Redefine the fill operators to detect rectangles.
  195.  
  196. /.orderrect    % <llx> <lly> <urx> <ury> .orderrect <llx> <lly> <w> <h>
  197.  {    % Ensure llx <= urx, lly <= ury.
  198.    1 index 4 index lt { 4 2 roll } if
  199.    dup 3 index lt { 3 1 roll exch } if
  200.    exch 3 index sub exch 2 index sub
  201.  } odef
  202. /.fillcomplex
  203.  {    % Do a first pass to see if the path is all rectangles in
  204.     % the output coordinate system.  We don't worry about overlapping
  205.     % rectangles that might be partially not filled.
  206.     % Stack: mark llx0 lly0 urx0 ury0 ... true mark x0 y0 ...
  207.    mark true mark
  208.     % Add a final moveto so we pick up any trailing unclosed subpath.
  209.    0 0 itransform moveto
  210.     { .coord counttomark 2 gt
  211.        { counttomark 4 gt { .fillcheckrect } { 4 2 roll pop pop }  ifelse }
  212.       if
  213.     }
  214.     { .coord }
  215.     { cleartomark not mark exit }
  216.     { counttomark -2 roll 2 copy counttomark 2 roll .fillcheckrect }
  217.    pathforall cleartomark
  218.     { .showcolor counttomark 4 idiv
  219.        { counttomark -4 roll .orderrect
  220.      (R ) //print .show==4
  221.        }
  222.       repeat pop
  223.     }
  224.     { cleartomark
  225.     }
  226.    ifelse
  227.  } odef
  228. /.fillcheckrect
  229.  {    % Check whether the current subpath is a rectangle.
  230.     % If it is, add it to the list of rectangles being accumulated;
  231.     % if not exit the .fillcomplex loop.
  232.     % The subpath has not been closed.
  233.     % Stack: as in .fillcomplex, + newx newy
  234.    counttomark 10 eq { 9 index 9 index 4 2 roll } if
  235.    counttomark 12 ne { cleartomark not mark exit } if
  236.    12 2 roll
  237.     % Check for the two possible forms of rectangles:
  238.     %    x0 y0  x0 y1  x1 y1  x1 y0  x0 y0
  239.     %    x0 y0  x1 y0  x1 y1  x0 y1  x0 y0
  240.    9 index 2 index eq 9 index 2 index eq and
  241.    10 index 9 index eq
  242.     {    % Check for first form.
  243.       7 index 6 index eq and 6 index 5 index eq and 3 index 2 index eq and
  244.     }
  245.     {    % Check for second form.
  246.       9 index 8 index eq and
  247.       8 index 7 index eq and 5 index 4 index eq and 4 index 3 index eq and
  248.     }
  249.    ifelse not { cleartomark not mark exit } if
  250.     % We have a rectangle.
  251.    pop pop pop pop 4 2 roll pop pop 8 4 roll
  252.  } odef
  253. /eofill { COMPLEX { .fillcomplex } if newpath } codef
  254. /fill { COMPLEX { .fillcomplex } if newpath } codef
  255. /rectfill { gsave newpath .rectappend fill grestore } codef
  256. /ueofill { gsave newpath uappend eofill grestore } codef
  257. /ufill { gsave newpath uappend fill grestore } codef
  258.  
  259. % Redefine the stroke operators to detect rectangles.
  260.  
  261. /rectstroke
  262.  { gsave newpath
  263.    dup type dup /arraytype eq exch /packedarraytype eq or
  264.     { dup length 6 eq { exch .rectappend concat } { .rectappend } ifelse }
  265.     { .rectappend }
  266.    ifelse stroke grestore
  267.  } codef
  268. /.strokeline    % <fromx> <fromy> <tox> <toy> .strokeline <tox> <toy>
  269.         % Note: fromx and fromy are in output coordinates;
  270.         % tox and toy are in user coordinates.
  271.  { .coord 2 copy 6 2 roll .orderrect
  272.     % Add in the line width.  Assume square or round caps.
  273.    currentlinewidth 2 div dup .dcoord add abs 1 .max 5 1 roll
  274.    4 index add 4 1 roll 4 index add 4 1 roll
  275.    4 index sub 4 1 roll 5 -1 roll sub 4 1 roll
  276.    (R ) //print .show==4
  277.  } odef
  278. /.strokecomplex
  279.  {    % Do a first pass to see if the path is all horizontal and vertical
  280.     % lines in the output coordinate system.
  281.     % Stack: true mark origx origy curx cury
  282.    true mark null null null null
  283.     { .coord 6 2 roll pop pop pop pop 2 copy }
  284.     { .coord 1 index 4 index eq 1 index 4 index eq or
  285.        { 4 2 roll pop pop }
  286.        { cleartomark not mark exit }
  287.       ifelse
  288.     }
  289.     { cleartomark not mark exit }
  290.     { counttomark -2 roll 2 copy counttomark 2 roll
  291.       1 index 4 index eq 1 index 4 index eq or
  292.        { pop pop 2 copy }
  293.        { cleartomark not mark exit }
  294.       ifelse
  295.     }
  296.    pathforall cleartomark
  297.    0 currentlinewidth .dcoord 0 eq exch 0 eq or and
  298.     % Do the second pass to write out the rectangles.
  299.     % Stack: origx origy curx cury
  300.     { .showcolor null null null null
  301.        { 6 2 roll pop pop pop pop 2 copy .coord }
  302.        { .strokeline }
  303.        { }
  304.        { 3 index 3 index .strokeline }
  305.       pathforall pop pop pop pop
  306.     }
  307.    if
  308.  } odef
  309. /stroke { COMPLEX { .strokecomplex } if newpath } codef
  310. /ustroke
  311.  { gsave newpath
  312.    dup length 6 eq { exch uappend concat } { uappend } ifelse
  313.    stroke grestore
  314.  } codef
  315.  
  316. % The image operators must read the input and note the dimensions.
  317. % Eventually we should redefine these to detect 1-bit-high all-black images,
  318. % since this is how dvips does underlining (!).
  319.  
  320. /.noteimagerect        % <width> <height> <matrix> .noteimagerect -
  321.  { COMPLEX
  322.     { gsave setmatrix itransform 0 0 itransform
  323.       grestore .coord 4 2 roll .coord .orderrect
  324.       (I ) //print .show==4
  325.     }
  326.     { pop pop pop
  327.     }
  328.    ifelse
  329.  } odef
  330. /colorimage where
  331.  { pop /colorimage
  332.     { 1 index
  333.        { dup 6 add index 1 index 6 add index 2 index 5 add index }
  334.        { 6 index 6 index 5 index }
  335.       ifelse .noteimagerect gsave nulldevice //colorimage grestore
  336.     } codef
  337.  } if
  338. /.noteimage        % Arguments as for image[mask]
  339.  { dup type /dicttype eq
  340.     { dup /Width get 1 index /Height get 2 index /ImageMatrix get }
  341.     { 4 index 4 index 3 index }
  342.    ifelse .noteimagerect
  343.  } odef
  344. /image { .noteimage gsave nulldevice //image grestore } codef
  345. /imagemask { .noteimage gsave nulldevice //imagemask grestore } codef
  346.  
  347. % Output the current color if necessary.
  348. /.color.r .inew def
  349.   .color.r -1 .iput        % make sure we write the color at the beginning
  350. /.color.g .inew def
  351. /.color.b .inew def
  352. /.showcolor
  353.  { COMPLEX
  354.     { currentrgbcolor
  355.       1000 mul round cvi
  356.       3 1 roll 1000 mul round cvi
  357.       exch 1000 mul round cvi
  358.         % Stack: b g r
  359.       dup //.color.r .iget eq
  360.       2 index //.color.g .iget eq and
  361.       3 index //.color.b .iget eq and
  362.        { pop pop pop
  363.        }
  364.        { (C ) //print
  365.      dup //.color.r exch .iput .show==only
  366.          ( ) //print dup //.color.g exch .iput .show==only
  367.          ( ) //print dup //.color.b exch .iput .show==only
  368.      (\n) //print
  369.        }
  370.       ifelse
  371.     }
  372.    if
  373.  } bind def
  374.  
  375. % Redefine `show'.
  376.  
  377. % Set things up so our output will be in tenths of a point, with origin at
  378. % lower left.  This isolates us from the peculiarities of individual devices.
  379.  
  380. /.show.ident.matrix matrix def
  381. /.show.ident {        % - .show.ident <scale> <matrix>
  382. %   //.show.ident.matrix defaultmatrix
  383. %               % Assume the original transformation is well-behaved.
  384. %   0.1 0 2 index dtransform abs exch abs .max /.show.scale exch def
  385. %   0.1 dup 3 -1 roll scale
  386.   gsave initmatrix
  387.         % Assume the original transformation is well-behaved...
  388.   0.1 0 dtransform abs exch abs .max
  389.   0.1 dup scale .show.ident.matrix currentmatrix
  390.         % ... but undo any rotation into landscape orientation.
  391.   dup 0 get 0 eq {
  392.     1 get dup abs div 90 mul rotate
  393.     .show.ident.matrix currentmatrix
  394.   } if
  395.   grestore
  396. } bind def
  397.  
  398. /.coord {        % <x> <y> .coord <x'> <y'>
  399.   transform .show.ident exch pop itransform
  400.   exch round cvi exch round cvi
  401. } odef
  402.  
  403. /.dcoord {        % <dx> <dy> .coord <dx'> <dy'>
  404.         % Transforming distances is trickier, because
  405.         % the coordinate system might be rotated.
  406.    .show.ident pop 3 1 roll
  407.    exch 0 dtransform
  408.     dup mul exch dup mul add sqrt
  409.      2 index div round cvi
  410.    exch 0 exch dtransform
  411.     dup mul exch dup mul add sqrt
  412.      3 -1 roll div round cvi
  413. } odef
  414.  
  415. % Remember the current X, Y, and height.
  416. /.show.x .inew def
  417. /.show.y .inew def
  418. /.show.height .inew def
  419.  
  420. % Remember the last character of the previous string; if it was a
  421. % hyphen preceded by a letter, we didn't output the hyphen.
  422.  
  423. /.show.last (\000) def
  424.  
  425. % Remember the current font.
  426. /.font.name 130 string def
  427. /.font.name.length .inew def
  428. /.font.height .inew def
  429. /.font.width .inew def
  430.  
  431. %%* Also remember indentation of current line and previous vertical
  432. %%* skip
  433.  
  434. /.show.indent .inew def
  435. /.show.dy     .inew def
  436.  
  437. % We have to redirect stdout somehow....
  438.  
  439. /.show.stdout { (%stdout) (w) file } bind def
  440.  
  441. % Make sure writing will work even if a program uses =string.
  442. /.show.string =string length string def
  443. /.show.=string =string length string def
  444. /.show==only
  445.  { //=string //.show.=string copy pop
  446.    dup type /stringtype eq
  447.     { dup length //.show.string length le
  448.        { dup rcheck { //.show.string copy } if
  449.        } if
  450.     } if
  451.    .show.stdout exch write==only
  452.    //.show.=string //=string copy pop
  453.  } odef
  454. /.show==4
  455.  { %4 -1 roll .show==only ( ) //print
  456.    %3 -1 roll .show==only ( ) //print
  457.    %exch .show==only ( ) //print
  458.    %.show==only (\n) //print
  459.  
  460.  
  461. 4 -1 roll .show==only ( ) //print
  462. 3 -1 roll .show==only ( ) //print
  463. 2 -1 roll
  464. (\() //print
  465. .show.write
  466. (\) ) //print
  467. .show==only ( ) //print
  468. (\n) //print
  469.  
  470.  
  471.  } odef
  472.  
  473. /.showwidth    % Same as stringwidth, but disable COMPLEX so that
  474.         % we don't try to detect rectangles during BuildChar.
  475.  { COMPLEX
  476.     { /COMPLEX false def stringwidth /COMPLEX true def }
  477.     { stringwidth }
  478.    ifelse
  479.  } odef
  480.  
  481. /.showfont    % <string> .showfont <string>
  482.  { gsave
  483.     % Try getting the height and width of the font from the FontBBox.
  484.      currentfont /FontBBox .knownget not { {0 0 0 0} } if
  485.      aload pop      % llx lly urx ury
  486.      exch 4 -1 roll % lly ury urx llx
  487.      sub            % lly ury dx
  488.      3 1 roll exch  % dx ury lly
  489.      sub            % dx dy
  490.      2 copy .max 0 ne
  491.       { currentfont /FontMatrix get dtransform
  492.       }
  493.       {    pop pop
  494.     % Fonts produced by dvips, among other applications, have
  495.     % BuildChar procedures that bomb out when given unexpected
  496.     % characters, and there is no way to determine whether a given
  497.     % character will do this.  So for Type 1 fonts, we measure a
  498.     % typical character ('X'); for others, we punt.
  499.     currentfont /FontType get 1 eq
  500.      { (X) .showwidth pop dup 1.3 mul
  501.      }
  502.      {    % No safe way to get the character size.  Punt.
  503.        0 0
  504.      }
  505.     ifelse
  506.       }
  507.      ifelse .dcoord exch
  508.      currentfont /FontName .knownget not { () } if
  509.      dup type /stringtype ne { //.show.string cvs } if
  510.    grestore
  511.     % Stack: height width fontname
  512.    SIMPLE
  513.     { pop pop //.show.height exch .iput }
  514.     { 2 index //.font.height .iget eq
  515.       2 index //.font.width .iget eq and
  516.       1 index //.font.name 0 //.font.name.length .iget getinterval eq and
  517.        { pop pop pop
  518.        }
  519.        { (F ) //print
  520.      3 -1 roll dup //.font.height exch .iput .show==only ( ) //print
  521.          exch dup //.font.width exch .iput .show==only ( ) //print
  522.      dup length //.font.name.length exch .iput
  523.          //.font.name cvs .show==only (\n) //print
  524.        }
  525.       ifelse
  526.     }
  527.    ifelse
  528.  } odef
  529.  
  530. % Define the letters -- characters which, if they occur followed by a hyphen
  531. % at the end of a line, cause the hyphen and line break to be ignored.
  532. /.letter.chars 100 dict def
  533. mark
  534.   65 1 90 { dup 32 add } for
  535.     counttomark
  536.         { StandardEncoding exch get .letter.chars exch dup put }
  537.     repeat
  538. pop
  539.  
  540. %%* Add the rest of the letters from the [O]T1Encoding and
  541. %%* ISOLatin1Encoding vectors
  542.  
  543. mark
  544.     /AE
  545.     /Aacute
  546.     /Abreve
  547.     /Acircumflex
  548.     /Adieresis
  549.     /Agrave
  550.     /Aogonek
  551.     /Aring
  552.     /Atilde
  553.     /Cacute
  554.     /Ccaron
  555.     /Ccedilla
  556.     /Dcaron
  557.     /Eacute
  558.     /Ecaron
  559.     /Ecircumflex
  560.     /Edieresis
  561.     /Egrave
  562.     /Eng
  563.     /Eogonek
  564.     /Eth
  565.     /Gbreve
  566.     /Germandbls 
  567.     /IJ
  568.     /Iacute
  569.     /Icircumflex
  570.     /Idieresis
  571.     /Idot
  572.     /Igrave
  573.     /Lacute
  574.     /Lcaron
  575.     /Lslash
  576.     /Nacute
  577.     /Ncaron
  578.     /Ntilde
  579.     /OE
  580.     /Oacute
  581.     /Ocircumflex
  582.     /Odieresis
  583.     /Ograve
  584.     /Ohungarumlaut
  585.     /Oslash
  586.     /Otilde
  587.     /Racute
  588.     /Rcaron
  589.     /Sacute
  590.     /Scaron
  591.     /Scedilla
  592.     /Tcaron
  593.     /Tcedilla
  594.     /Thorn
  595.     /Uacute
  596.     /Ucircumflex
  597.     /Udieresis
  598.     /Ugrave
  599.     /Uhungarumlaut
  600.     /Uring
  601.     /Yacute
  602.     /Ydieresis
  603.     /Zacute
  604.     /Zcaron
  605.     /Zdot
  606.     /aacute
  607.     /abreve
  608.     /acircumflex
  609.     /adieresis
  610.     /ae
  611.     /agrave
  612.     /aogonek
  613.     /aring
  614.     /atilde
  615.     /cacute
  616.     /ccaron
  617.     /ccedilla
  618.     /dbar
  619.     /dcaron
  620.     /dotlessi
  621.     /dotlessj
  622.     /eacute
  623.     /ecaron
  624.     /ecircumflex
  625.     /edieresis
  626.     /egrave
  627.     /eng
  628.     /eogonek
  629.     /eth
  630.     /exclamdown
  631.     /ff
  632.     /ffi
  633.     /ffl
  634.     /fi
  635.     /fl
  636.     /gbreve
  637.     /germandbls
  638.     /iacute
  639.     /icircumflex
  640.     /idieresis
  641.     /igrave
  642.     /ij
  643.     /lacute
  644.     /lcaron
  645.     /lslash
  646.     /nacute
  647.     /ncaron
  648.     /ntilde
  649.     /oacute
  650.     /ocircumflex
  651.     /odieresis
  652.     /oe
  653.     /ograve
  654.     /ohungarumlaut
  655.     /oslash
  656.     /otilde
  657.     /questiondown
  658.     /racute
  659.     /rcaron
  660.     /sacute
  661.     /scaron
  662.     /scedilla
  663.     /section
  664.     /sterling
  665.     /tcaron
  666.     /tcedilla
  667.     /thorn
  668.     /uacute
  669.     /ucircumflex
  670.     /udieresis
  671.     /ugrave
  672.     /uhungarumlaut
  673.     /uring
  674.     /yacute
  675.     /ydieresis
  676.     /zacute
  677.     /zcaron
  678.     /zdot
  679. counttomark
  680.     { .letter.chars exch dup put }
  681. repeat
  682. pop
  683.  
  684. % Define a set of characters which, if they occur at the start of a line,
  685. % are taken as indicating a paragraph break.
  686. /.break.chars 50 dict def
  687. mark
  688.     /bullet /dagger /daggerdbl /periodcentered /section
  689.     counttomark
  690.         { .break.chars exch dup put }
  691.     repeat
  692. pop
  693.  
  694. % Define character translation to ASCII.
  695. % We have to do this for the entire character set.
  696.  
  697. /.char.map 500 dict def
  698.  
  699. /.chars.def { counttomark 2 idiv { .char.map 3 1 roll put } repeat pop } def
  700.  
  701. % Encode the printable ASCII characters.
  702.  
  703. mark 32 1 126
  704.  { 1 string dup 0 4 -1 roll put
  705.    dup 0 get StandardEncoding exch get exch
  706.  }
  707. for .chars.def
  708.  
  709.         % Encode accents.
  710. mark
  711.     /acute      (')
  712.     /caron      (^)
  713.     /cedilla    (,)
  714.     /circumflex (^)
  715.     /dieresis   (")
  716.     /grave      (`)
  717.     /ring       (*)
  718.     /tilde      (~)
  719. .chars.def
  720.  
  721.         % Encode the ISO accented characters.
  722. mark 192 1 255
  723.  { ISOLatin1Encoding exch get =string cvs
  724.    dup 0 1 getinterval 1 index dup length 1 sub 1 exch getinterval
  725.    .char.map 2 index known .char.map 2 index known and
  726.     { .char.map 3 -1 roll get .char.map 3 -1 roll get concatstrings
  727.       .char.map 3 1 roll put
  728.     }
  729.     { pop pop pop
  730.     }
  731.    ifelse
  732.  }
  733. for .chars.def
  734.  
  735. % Encode the remaining standard and ISO alphabetic characters.
  736.  
  737. mark
  738.   /AE (AE) /Eth (DH) /OE (OE) /Thorn (Th)
  739.   /ae (ae) /eth (dh)
  740.   /ffi (ffi) /ffl (ffl) /fi (fi) /fl (fl)
  741.   /germandbls (ss) /oe (oe) /thorn (th)
  742. .chars.def
  743.  
  744. % Encode the other standard and ISO characters.
  745.  
  746. mark
  747.   /brokenbar (|) /bullet (*) /copyright ((C)) /currency (#)
  748.   /dagger (#) /daggerdbl (##) /degree (o) /divide (/) /dotaccent (.)
  749.   /dotlessi (i)
  750.   /ellipsis (...) /emdash (--) /endash (-) /exclamdown (!)
  751.   /florin (f) /fraction (/)
  752.   /guillemotleft (<<) /guillemotright (>>)
  753.   /guilsinglleft (<) /guilsinglright (>) /hungarumlaut ("") /logicalnot (~)
  754.   /macron (_) /minus (-) /mu (u) /multiply (*)
  755.   /ogonek (,) /onehalf (1/2) /onequarter (1/4) /onesuperior (1)
  756.   /ordfeminine (-a) /ordmasculine (-o)
  757.   /paragraph (||) /periodcentered (*) /perthousand (o/oo) /plusminus (+-)
  758.   /questiondown (?) /quotedblbase (") /quotedblleft (") /quotedblright (")
  759.   /quotesinglbase (,) /quotesingle (') /registered ((R))
  760.   /section ($) /sterling (#)
  761.   /threequarters (3/4) /threesuperior (3) /trademark ((TM)) /twosuperior (2)
  762.   /yen (Y)
  763. .chars.def
  764.  
  765. % Encode a few common Symbol characters.
  766.  
  767. mark
  768.   /asteriskmath (*) /copyrightsans ((C)) /copyrightserif ((C))
  769.   /greaterequal (>=) /lessequal (<=) /registersans ((R)) /registerserif ((R))
  770.   /trademarksans ((TM)) /trademarkserif ((TM))
  771. .chars.def
  772.  
  773. %%* Add a few characters from StandardEncoding and ISOLatin1Encoding
  774. %%* that were missing.
  775.  
  776. mark
  777.     /cent           (c)
  778.     /guilsinglleft  (<)
  779.     /guilsinglright (>)
  780.     /breve          (*)
  781.     /Lslash         (L/)
  782.     /lslash         (l/)
  783. .chars.def
  784.  
  785. %%* Define the OT1Encoding and T1Encoding vectors for use with dvips
  786. %%* files.  Unfortunately, there's no way of telling what font is
  787. %%* really being used within a dvips document, so we can't provide an
  788. %%* appropriate encoding for each individual font.  Instead, we'll
  789. %%* just provide support for the two most popular text encodings, the
  790. %%* OT1 and T1 encodings, and just accept the fact that any font not
  791. %%* using one of those encodings will be rendered as gibberish.
  792. %%* 
  793. %%* OT1 is Knuth's 7-bit encoding for the CMR text fonts, while T1
  794. %%* (aka the Cork encoding) is the 8-bit encoding used by the DC
  795. %%* fonts, a preliminary version of the proposed Extended Computer
  796. %%* Modern fonts.  Unfortunately, T1 is not a strict extension of OT1;
  797. %%* they differ in positions 8#000 through 8#040, 8#074, 8#076, 8#134,
  798. %%* 8#137, 8#173, 8#174, 8#175 and 8#177, so we can't use the same
  799. %%* vector for both.
  800. %%* 
  801. %%* Of course, we also can't reliably tell the difference between an
  802. %%* OT1-encoded font and a T1-encoded font based on the information in
  803. %%* a dvips-created PostScript file.  As a best-guess solution, we'll
  804. %%* use the T1 encoding if the font contains any characters in
  805. %%* positions above 8#177 and the OT1 encoding if it doesn't.
  806.  
  807. /T1Encoding  256 array def
  808.  
  809. /OT1Encoding 256 array def
  810.  
  811. %%* T1Encoding shares a lot with StandardEncoding, so let's start
  812. %%* there.
  813.  
  814. StandardEncoding T1Encoding copy pop
  815.  
  816. /OT1.encode {
  817.     counttomark
  818.     2 idiv
  819.       { OT1Encoding 3 1 roll put }
  820.     repeat
  821.     cleartomark
  822. } def
  823.  
  824. /T1.encode {
  825.     counttomark
  826.     2 idiv
  827.       { T1Encoding 3 1 roll put }
  828.     repeat
  829.     cleartomark
  830. } def
  831.  
  832. mark
  833.     8#000 /grave
  834.     8#001 /acute
  835.     8#002 /circumflex
  836.     8#003 /tilde
  837.     8#004 /dieresis
  838.     8#005 /hungarumlaut
  839.     8#006 /ring
  840.     8#007 /caron
  841.  
  842.     8#010 /breve
  843.     8#011 /macron
  844.     8#012 /dotaccent
  845.     8#013 /cedilla
  846.     8#014 /ogonek
  847.     8#015 /quotesinglbase
  848.     8#016 /guilsinglleft
  849.     8#017 /guilsinglright
  850.  
  851.     8#020 /quotedblleft
  852.     8#021 /quotedblright
  853.     8#022 /quotedblbase
  854.     8#023 /guillemotleft
  855.     8#024 /guillemotright
  856.     8#025 /endash
  857.     8#026 /emdash
  858.     8#027 /cwm
  859.  
  860.     8#030 /perthousandzero
  861.     8#031 /dotlessi
  862.     8#032 /dotlessj
  863.     8#033 /ff
  864.     8#034 /fi
  865.     8#035 /fl
  866.     8#036 /ffi
  867.     8#037 /ffl
  868.  
  869. %%  8#040 through 8#176 follow StandardEncoding
  870.  
  871.     8#177 /hyphen
  872. T1.encode
  873.  
  874. mark
  875.     8#200 /Abreve
  876.     8#201 /Aogonek
  877.     8#202 /Cacute
  878.     8#203 /Ccaron
  879.     8#204 /Dcaron
  880.     8#205 /Ecaron
  881.     8#206 /Eogonek
  882.     8#207 /Gbreve
  883.     8#210 /Lacute
  884.     8#211 /Lcaron
  885.     8#212 /Lslash
  886.     8#213 /Nacute
  887.     8#214 /Ncaron
  888.     8#215 /Eng
  889.     8#216 /Ohungarumlaut
  890.     8#217 /Racute
  891.     8#220 /Rcaron
  892.     8#221 /Sacute
  893.     8#222 /Scaron
  894.     8#223 /Scedilla
  895.     8#224 /Tcaron
  896.     8#225 /Tcedilla
  897.     8#226 /Uhungarumlaut
  898.     8#227 /Uring
  899.     8#230 /Ydieresis
  900.     8#231 /Zacute
  901.     8#232 /Zcaron
  902.     8#233 /Zdot
  903.     8#234 /IJ
  904.     8#235 /Idot
  905.     8#236 /dbar
  906.     8#237 /section
  907.     8#240 /abreve
  908.     8#241 /aogonek
  909.     8#242 /cacute
  910.     8#243 /ccaron
  911.     8#244 /dcaron
  912.     8#245 /ecaron
  913.     8#246 /eogonek
  914.     8#247 /gbreve
  915.     8#250 /lacute
  916.     8#251 /lcaron
  917.     8#252 /lslash
  918.     8#253 /nacute
  919.     8#254 /ncaron
  920.     8#255 /eng
  921.     8#256 /ohungarumlaut
  922.     8#257 /racute
  923.     8#260 /rcaron
  924.     8#261 /sacute
  925.     8#262 /scaron
  926.     8#263 /scedilla
  927.     8#264 /tcaron
  928.     8#265 /tcedilla
  929.     8#266 /uhungarumlaut
  930.     8#267 /uring
  931.     8#270 /ydieresis
  932.     8#271 /zacute
  933.     8#272 /zcaron
  934.     8#273 /zdot
  935.     8#274 /ij
  936.     8#275 /exclamdown
  937.     8#276 /questiondown
  938.     8#277 /sterling
  939.  
  940.     8#300 /Agrave
  941.     8#301 /Aacute
  942.     8#302 /Acircumflex
  943.     8#303 /Atilde
  944.     8#304 /Adieresis
  945.     8#305 /Aring
  946.     8#306 /AE
  947.     8#307 /Ccedilla
  948.     8#310 /Egrave
  949.     8#311 /Eacute
  950.     8#312 /Ecircumflex
  951.     8#313 /Edieresis
  952.     8#314 /Igrave
  953.     8#315 /Iacute
  954.     8#316 /Icircumflex
  955.     8#317 /Idieresis
  956.     8#320 /Eth
  957.     8#321 /Ntilde
  958.     8#322 /Ograve
  959.     8#323 /Oacute
  960.     8#324 /Ocircumflex
  961.     8#325 /Otilde
  962.     8#326 /Odieresis
  963.     8#327 /OE
  964.     8#330 /Oslash
  965.     8#331 /Ugrave
  966.     8#332 /Uacute
  967.     8#333 /Ucircumflex
  968.     8#334 /Udieresis
  969.     8#335 /Yacute
  970.     8#336 /Thorn
  971.     8#337 /Germandbls 
  972.  
  973.     8#340 /agrave
  974.     8#341 /aacute
  975.     8#342 /acircumflex
  976.     8#343 /atilde
  977.     8#344 /adieresis
  978.     8#345 /aring
  979.     8#346 /ae
  980.     8#347 /ccedilla
  981.     8#350 /egrave
  982.     8#351 /eacute
  983.     8#352 /ecircumflex
  984.     8#353 /edieresis
  985.     8#354 /igrave
  986.     8#355 /iacute
  987.     8#356 /icircumflex
  988.     8#357 /idieresis
  989.     8#360 /eth
  990.     8#361 /ntilde
  991.     8#362 /ograve
  992.     8#363 /oacute
  993.     8#364 /ocircumflex
  994.     8#365 /otilde
  995.     8#366 /odieresis
  996.     8#367 /oe
  997.     8#370 /oslash
  998.     8#371 /ugrave
  999.     8#372 /uacute
  1000.     8#373 /ucircumflex
  1001.     8#374 /udieresis
  1002.     8#375 /yacute
  1003.     8#376 /thorn
  1004.     8#377 /germandbls
  1005.  
  1006. T1.encode
  1007.  
  1008. %%* Now copy OT1Encoding into T1Encoding and make a few changes.
  1009.  
  1010. T1Encoding OT1Encoding copy pop
  1011.  
  1012. mark
  1013.     8#000 /Gamma
  1014.     8#001 /Delta
  1015.     8#002 /Theta
  1016.     8#003 /Lambda
  1017.     8#004 /Xi
  1018.     8#005 /Pi
  1019.     8#006 /Sigma
  1020.     8#007 /Upsilon
  1021.  
  1022.     8#010 /Phi
  1023.     8#011 /Psi
  1024.     8#012 /Omega
  1025.     8#013 /ff
  1026.     8#014 /fi
  1027.     8#015 /fl
  1028.     8#016 /ffi
  1029.     8#017 /ffl
  1030.  
  1031.     8#020 /dotlessi
  1032.     8#021 /dotlessj
  1033.     8#022 /grave
  1034.     8#023 /acute
  1035.     8#024 /caron
  1036.     8#025 /breve
  1037.     8#026 /macron
  1038.     8#027 /ring
  1039.  
  1040.     8#030 /cedilla
  1041.     8#031 /germandbls
  1042.     8#032 /ae
  1043.     8#033 /oe
  1044.     8#034 /oslash
  1045.     8#035 /AE
  1046.     8#036 /OE
  1047.     8#037 /Oslash
  1048.  
  1049.     8#040 /polishslash
  1050.  
  1051.     8#042 /quotedblright
  1052.  
  1053.     8#074 /exclamdown
  1054.     8#076 /questiondown
  1055.  
  1056.     8#134 /quotedblleft
  1057.     8#137 /dotaccent
  1058.  
  1059.     8#173 /endash
  1060.     8#174 /emdash
  1061.     8#175 /hungarumlaut
  1062.     8#177 /dieresis
  1063. OT1.encode
  1064.  
  1065. %%* And add a few characters from the OT1Encoding
  1066.  
  1067. mark
  1068.     /Gamma              (\\Gamma )
  1069.     /Delta              (\\Delta )
  1070.     /Theta              (\\Theta )
  1071.     /Lambda             (\\Lambda )
  1072.     /Xi                 (\\Xi )
  1073.     /Pi                 (\\Pi )
  1074.     /Sigma              (\\Sigma )
  1075.     /Upsilon            (\\Upsilon )
  1076.  
  1077.     /Phi                (\\Phi )
  1078.     /Psi                (\\Psi )
  1079.     /Omega              (\\Omega )
  1080.  
  1081.     /dotlessj           (j)
  1082.     /ff                 (ff)
  1083.  
  1084.     /cwm                ()
  1085.  
  1086.     /perthousandzero    (0)
  1087.  
  1088.     /polishslash        ()
  1089.  
  1090.     /Abreve             (A*)
  1091.     /Aogonek            (A,)
  1092.     /Cacute             (C')
  1093.     /Ccaron             (C^)
  1094.     /Dcaron             (D^)
  1095.     /Ecaron             (E^)
  1096.     /Eogonek            (E,)
  1097.     /Gbreve             (G*)
  1098.     /Lacute             (L')
  1099.     /Lcaron             (L^)
  1100.     /Nacute             (N')
  1101.     /Ncaron             (N^)
  1102.     /Eng                (NG)
  1103.     /Ohungarumlaut      (O"")
  1104.     /Racute             (R')
  1105.     /Rcaron             (R^)
  1106.     /Sacute             (S')
  1107.     /Scaron             (S^)
  1108.     /Scedilla           (S,)
  1109.     /Tcaron             (T^)
  1110.     /Tcedilla           (T,)
  1111.     /Uhungarumlaut      (U"")
  1112.     /Uring              (U*)
  1113.     /Ydieresis          (Y")
  1114.     /Zacute             (Z')
  1115.     /Zcaron             (Z^)
  1116.     /Zdot               (Z.)
  1117.     /IJ                 (IJ)
  1118.     /Idot               (I.)
  1119.     /dbar               (d-)
  1120.     /abreve             (a*)
  1121.     /aogonek            (a,)
  1122.     /cacute             (c')
  1123.     /ccaron             (c^)
  1124.     /dcaron             (d^)
  1125.     /ecaron             (e^)
  1126.     /eogonek            (e,)
  1127.     /gbreve             (g*)
  1128.     /lacute             (l')
  1129.     /lcaron             (l^)
  1130.     /nacute             (n')
  1131.     /ncaron             (n^)
  1132.     /eng                (ng)
  1133.     /ohungarumlaut      (o"")
  1134.     /racute             (r')
  1135.     /rcaron             (r^)
  1136.     /sacute             (s')
  1137.     /scaron             (s^)
  1138.     /scedilla           (s,)
  1139.     /tcaron             (t^)
  1140.     /tcedilla           (t,)
  1141.     /uhungarumlaut      (u"")
  1142.     /uring              (u*)
  1143.     /zacute             (z')
  1144.     /zcaron             (z^)
  1145.     /zdot               (z.)
  1146.     /ij                 (ij)
  1147.     /Germandbls         (SS)
  1148. .chars.def
  1149.  
  1150. %%* We extend the df-tail command to stick in an Encoding vector (see
  1151. %%* above for a discussion of the T1 and OT1 encodings), put in a
  1152. %%* FontName (which will just be dvips's name for the font, i.e., Fa,
  1153. %%* Fb, etc.) and give each font a separate FontBBox instead of
  1154. %%* letting them all share a single one.
  1155.  
  1156. /dvips.df-tail      % id numcc maxcc df-tail
  1157.   {
  1158.     /nn 9 dict N
  1159.     nn begin
  1160.         %%  
  1161.         %%  Choose an encoding based on the highest position occupied.
  1162.         %%  
  1163.         dup 128 gt { T1Encoding } { OT1Encoding } ifelse
  1164.         /Encoding X
  1165.         /FontType 3 N
  1166.         %%
  1167.         %%  It's ok for all the fonts to share a FontMatrix, but they
  1168.         %%  need to have separate FontBBoxes
  1169.         %%
  1170.     /FontMatrix fntrx N
  1171.     /FontBBox [0 0 0 0] N
  1172.         string /base X
  1173.         array /BitMaps X
  1174.         %%
  1175.         %%  And let's throw in a FontName for good measure
  1176.         %%
  1177.         dup (    ) cvs
  1178.         %%  
  1179.         %%  Make sure each font gets it own private FontName.  -- dmj,
  1180.         %%  12/23/97
  1181.         %%  
  1182.         dup length string copy
  1183.         /FontName X
  1184.         /BuildChar {CharBuilder} N
  1185.     end
  1186.     dup { /foo setfont }
  1187.        2 array copy cvx N
  1188.     load
  1189.        0 nn put
  1190.     /ctr 0 N
  1191.     [
  1192. } def
  1193.  
  1194. %%* This is functionally equivalent to dvips's /D procedure, but it
  1195. %%* also calculates the Font Bounding Box while defining the
  1196. %%* characters.
  1197.  
  1198. /dvips.D   % char-data ch D - : define character bitmap in current font
  1199. {
  1200.     /cc X                           % char-data
  1201.     dup type /stringtype ne {]} if  % char-data
  1202.  
  1203.     /ch-data X
  1204.     nn /base get cc ctr put     % (adds ctr to cc'th position of BASE)
  1205.     nn /BitMaps get
  1206.     ctr
  1207.     ch-data                     % BitMaps ctr char-data
  1208.     sf 1 ne {
  1209.        dup dup length 1 sub dup 2 index S get sf div put
  1210.     } if
  1211.     put                         % puts char-data into BitMaps at index ctr
  1212.     /ctr ctr 1 add N
  1213. %%  
  1214. %%  Make sure the Font Bounding Box encloses the Bounding Box of the
  1215. %%  current character
  1216. %%
  1217.     nn /FontBBox get        % BB
  1218.  
  1219.     dup                     % calculate new llx
  1220.     dup 0 get
  1221.     ch-xoff
  1222.     .min
  1223.     0 exch put
  1224.  
  1225.     dup                     % calculate new lly
  1226.     dup 1 get
  1227.     ch-yoff ch-height sub
  1228.     .min
  1229.     1 exch put
  1230.  
  1231.     dup                     % calculate new urx
  1232.     dup 2 get
  1233.     ch-dx ch-width add
  1234.     .max 
  1235.     2 exch put
  1236.  
  1237.     dup 3 get               % calculate new ury
  1238.     ch-yoff
  1239.     .max 
  1240.     3 exch put
  1241.  
  1242. } def
  1243.  
  1244. %%* Define start-hook to replace df-tail and D by our versions.
  1245. %%* Unfortunately, the user can redefine start-hook and thus bypass
  1246. %%* these changes, but I don't see an obvious way around that.
  1247.  
  1248. userdict /start-hook {
  1249.     TeXDict /df-tail /dvips.df-tail load bind put
  1250.     TeXDict /D       /dvips.D       load bind put
  1251. } put
  1252.  
  1253. %%* Introduce a symbolic constant for hyphens.  (Need to make
  1254. %%* allowance for hyphen being in different place?)
  1255.  
  1256. /.hyphen 45 def
  1257.  
  1258. % Write out a string.  If it ends in a letter and a hyphen,
  1259. % don't write the hyphen, and set .show.last to a hyphen;
  1260. % otherwise, set .show.last to the character (or \000 if it was a hyphen).
  1261. /.show.write    % <string>
  1262.  {
  1263.     dup length 1 ge
  1264.         { dup dup length 1 sub get      % string last_char
  1265.           dup .hyphen eq                % string last_char hyphen?
  1266.             {                           % string last_char
  1267.                 1 index length 1 gt
  1268.                     { 1 index dup length 2 sub get }
  1269.                     { //.show.last 0 get }
  1270.                 ifelse                  % string last_char prev-char
  1271.                 currentfont /Encoding get exch get  % look up prev-char
  1272.                 //.letter.chars exch known          % is it a letter?
  1273.                     { % Remove the hyphen           % string last_char
  1274.                         exch                        % last_char string
  1275.                         dup length 1 sub            % last_char string len-1
  1276.                         0 exch getinterval          % last_char string-1
  1277.                         exch                        % string-1 last_char
  1278.                     }
  1279.                     { pop 0 }                       % string 0
  1280.                 ifelse
  1281.             }
  1282.           if
  1283.           //.show.last 0 3 -1 roll put              % store last_char
  1284.                                                     % in .show.last
  1285.                                                     % If .show.last ==
  1286.                                                     % hyphen, then
  1287.                                                     % last char of
  1288.                                                     % previous string
  1289.                                                     % was a hyphen
  1290.         }
  1291.     if                                          % string
  1292.     { % begin forall                            % c
  1293.         dup                                     % c c
  1294.         currentfont /Encoding get               % c c vec
  1295.         exch get                                % c name
  1296.         dup //.char.map exch known              % c name bool
  1297.           { exch pop }
  1298.           { pop OT1Encoding exch get }
  1299.         ifelse                                  % name
  1300.         //.char.map exch get                    % translation
  1301.         .show.stdout exch writestring
  1302.     }
  1303.     forall
  1304. } odef
  1305.  
  1306. /.showstring1 {                 % string
  1307.     currentpoint .coord         % string x y
  1308.     3 -1 roll dup .showwidth    % x y string dx dy
  1309.     1 index                     % x y string dx dy dx
  1310.     0 rmoveto                   % x y string dx dy
  1311.     .dcoord pop                 % x y string width
  1312.     SIMPLE
  1313.       {                         % x y string width
  1314.         2 index                 % x y string width y
  1315.         //.show.y .iget         % x y string width y old.y
  1316.         %%* 
  1317.         %%* Replaced test "has y changed" by "has y changed by more
  1318.         %%* than the current font height" so that subscripts and
  1319.         %%* superscripts won't cause line/paragraph breaks
  1320.         %%* 
  1321.          sub abs dup            % x y string width dy dy
  1322.          //.show.height .iget
  1323.          gt
  1324.          {                      % x y string width dy
  1325.  
  1326.             %%* Vertical position has changed by more than the font
  1327.             %%* height, so we now try to figure out whether we've
  1328.             %%* started a new paragraph or merely a new line, using a
  1329.             %%* variety of heuristics.
  1330.  
  1331.             %%* If any of the following is true, we start a new
  1332.             %%* paragraph:
  1333.  
  1334.             %%* (a) the current vertical shift is more than 1.1 times
  1335.             %%*     the previous vertical shift, where 1.1 is an
  1336.             %%*     arbitrarily chosen factor that could probably be
  1337.             %%*     refined.
  1338.  
  1339.             dup                 % x y string width dy dy
  1340.             //.show.dy .iget 1.1 mul
  1341.             gt
  1342.             exch
  1343.  
  1344.             %%* Save the new vertical shift
  1345.  
  1346.             //.show.dy exch .iput
  1347.  
  1348.             %%* (b) The vertical shift is more than 1.3 times the
  1349.             %%*     "size" of the current font.  I've removed this
  1350.             %%*     test since it's not really very useful.
  1351.  
  1352. %%*            //.show.dy .iget
  1353. %%*            //.show.height .iget 1.4 mul
  1354. %%*            gt                          % x y string width bool
  1355. %%*            .show.height .iget 0 gt and % only perform test if font
  1356. %%*                                        % height is nonzero
  1357. %%*            or
  1358.  
  1359.             %%* (c) the first character of the new line is one of the
  1360.             %%*     .break.chars
  1361.  
  1362.             2 index length      % x y string width newpar? len
  1363.             0 gt                % x y string width newpar? len>0?
  1364.               {
  1365.                 2 index 0 get   % x y string width newpar? s
  1366.                 currentfont /Encoding get
  1367.                 exch get        % x y string width newpar? s_enc
  1368.                 //.break.chars exch known { pop true } if
  1369.               }
  1370.             if                  % x y string width newpar?
  1371.  
  1372.             %%* (d) The indentation of the new line is greater than
  1373.             %%*     the indentation of the previous line.
  1374.  
  1375.             4 index
  1376.             //.show.indent .iget
  1377.             gt
  1378.             or
  1379.  
  1380.             %%* HOWEVER, if the line ends in a hyphen, we do NOT begin
  1381.             %%* a new paragraph (cf. comment at end of BF2).  --dmj,
  1382.             %%* 12/23/97
  1383.  
  1384.             //.show.last 0 get .hyphen ne
  1385.             and
  1386.  
  1387.             % newpar?
  1388.               { (\n\n) }        % Paragraph
  1389.               {                 % Line
  1390.                                 %%* 
  1391.                                 %%* BF2: If last character on a line is
  1392.                                 %%* a hyphen, we omit the hyphen and
  1393.                                 %%* run the lines together.  Of
  1394.                                 %%* course, this will fail if a word
  1395.                                 %%* with an explicit hyphen (e.g.,
  1396.                                 %%* X-ray) is split across two lines.
  1397.                                 %%* Oh, well.  (What should we do
  1398.                                 %%* about a hyphen that ends a
  1399.                                 %%* "paragraph"?  Perhaps that should
  1400.                                 %%* inhibit a paragraph break.)
  1401.                                 %%*
  1402.                 //.show.last 0 get .hyphen eq
  1403.                     { ()  }
  1404.                     { ( ) }
  1405.                 ifelse          % x y string width char
  1406.               }
  1407.             ifelse
  1408.             //print
  1409.  
  1410.             //.show.y 3 index .iput % x y string width
  1411.             //.show.x 4 index .iput % x y string width
  1412.             //.show.indent 4 index .iput
  1413.          }
  1414.          {                      % x y string width dy
  1415.                   % If the word processor split a hyphenated word within
  1416.                   % the same line, put out the hyphen now.
  1417.             pop
  1418.             //.show.last 0 get .hyphen eq { (-) //print } if
  1419.          }
  1420.         ifelse
  1421.                                 %%* 
  1422.                                 %%* If have moved more than 1 point to
  1423.                                 %%* the right, interpret it as a
  1424.                                 %%* space?  This need to be looked at
  1425.                                 %%* more closely.
  1426.                                 %%* 
  1427.         3 index                     % x y string width x
  1428.         //.show.x .iget 10 add gt   % x y string width bool
  1429.             { ( ) //print }
  1430.         if
  1431.                                     % x y string width
  1432.         4 1 roll                    % width x y string
  1433.         .show.write pop             % width x
  1434.         add //.show.x exch .iput    % <empty>
  1435.       }
  1436.       { (S ) //print .show==4 
  1437.       }
  1438.     ifelse
  1439. } odef
  1440.  
  1441. /.showstring
  1442.  { dup () eq { pop } { .showstring1 } ifelse
  1443.  } bind def
  1444.  
  1445. % Redefine all the string display operators.
  1446.  
  1447. /show {
  1448.     .showfont
  1449.     .showcolor
  1450.     .showstring
  1451. } codef
  1452.  
  1453. % We define all the other operators in terms of .show1.
  1454.  
  1455. /.show1.string ( ) def
  1456. /.show1 { //.show1.string exch 0 exch put //.show1.string .showstring } odef
  1457. /ashow
  1458.  { .showfont .showcolor
  1459.    { .show1 2 copy rmoveto } forall
  1460.    pop pop
  1461.  } codef
  1462. /awidthshow
  1463.  { .showfont .showcolor
  1464.     { dup .show1 4 index eq { 4 index 4 index rmoveto } if
  1465.       2 copy rmoveto
  1466.     }
  1467.    forall
  1468.    pop pop pop pop pop
  1469.  } codef
  1470. /widthshow
  1471.  { .showfont .showcolor
  1472.    //.show1.string 0 4 -1 roll put
  1473.     { //.show1.string search not { exit } if
  1474.       .showstring .showstring
  1475.       2 index 2 index rmoveto
  1476.     } loop
  1477.    .showstring pop pop
  1478.  } codef
  1479. /kshow
  1480.  { .showfont .showcolor
  1481.     %**************** Should construct a closure, in case the procedure
  1482.     %**************** affects the o-stack.
  1483.     { .show1 dup exec } forall pop
  1484.  } codef
  1485.  
  1486. % We don't really do the right thing with the Level 2 show operators,
  1487. % but we do something semi-reasonable.
  1488. /xshow { pop show } codef
  1489. /yshow { pop show } codef
  1490. /xyshow { pop show } codef
  1491. /glyphshow
  1492.  { currentfont /Encoding .knownget not { {} } if
  1493.    0 1 2 index length 1 sub
  1494.     {        % Stack: glyph encoding index
  1495.       2 copy get 3 index eq { exch pop exch pop null exit } if
  1496.       pop
  1497.     }
  1498.    for null eq { (X) dup 0 4 -1 roll put show } { pop } ifelse
  1499.  } codef
  1500.  
  1501. end
  1502.  
  1503. % Bind the operators we just defined, and all the others if we didn't
  1504. % do it before.  Also reenable 'bind' for future files.
  1505.  
  1506. .bindoperators
  1507. NOBIND currentdict systemdict ne and
  1508.  { systemdict begin .bindoperators end }
  1509. if
  1510. NOBIND
  1511.  { /bind /.bind load def }
  1512. if
  1513.  
  1514. % Make systemdict read-only if it wasn't already.
  1515.  
  1516. systemdict wcheck { systemdict readonly pop } if
  1517.  
  1518. % Restore the current local/global VM mode.
  1519.  
  1520. exec
  1521.  
  1522.  
  1523.